(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     38452,        851]
NotebookOptionsPosition[     37794,        827]
NotebookOutlinePosition[     38137,        842]
CellTagsIndexPosition[     38094,        839]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Casteljau", " ", "algorithm"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"decast", "[", 
    RowBox[{"pts_", ",", "t_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n", "=", 
        RowBox[{
         RowBox[{"Length", "[", "pts", "]"}], "-", "1"}]}], ",", "a"}], "}"}],
      ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"a", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", "pts"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "\[LessEqual]", "n"}], ",", 
        RowBox[{"j", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"[", 
           RowBox[{"j", "+", "1"}], "]"}], "]"}], "=", " ", 
         RowBox[{"Table", "[", " ", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "t"}], ")"}], 
             RowBox[{"a", "[", 
              RowBox[{"[", 
               RowBox[{"j", ",", 
                RowBox[{"i", "+", "1"}]}], "]"}], "]"}]}], "+", 
            RowBox[{"t", "*", 
             RowBox[{"a", "[", 
              RowBox[{"[", 
               RowBox[{"j", ",", 
                RowBox[{"i", "+", "2"}]}], "]"}], "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", 
             RowBox[{"n", "-", "j"}]}], "}"}]}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{"j", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", 
            RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"n", "+", "2", "-", "j"}], ",", "j"}], "]"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", 
            RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"subdivision", "[", 
    RowBox[{"pts_", ",", "t_", ",", "0"}], "]"}], ":=", " ", "pts"}], ";", 
  RowBox[{
   RowBox[{"subdivision", "[", 
    RowBox[{"pts_", ",", "t_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Flatten", "[", " ", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"subdivision", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"decast", "[", 
           RowBox[{"pts", ",", "t"}], "]"}], "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", "t", ",", 
         RowBox[{"k", "-", "1"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"bez", "[", 
     RowBox[{"pts_", ",", "t_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"subdivision", "[", 
      RowBox[{"pts", ",", "t", ",", "1"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Point", "-", 
    RowBox[{"line", " ", "distance"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p0", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"{", 
    RowBox[{"0.5", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", 
   RowBox[{"{", 
    RowBox[{"0.5", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", 
   RowBox[{"{", 
    RowBox[{"p0", ",", "p1", ",", "p2"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"a10", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"x", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "-", 
    RowBox[{"x", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"a12", "[", "y_", "]"}], ":=", 
   RowBox[{
    RowBox[{"y", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "-", 
    RowBox[{"y", "[", 
     RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"a20", "[", "y_", "]"}], ":=", 
    RowBox[{
     RowBox[{"y", "[", 
      RowBox[{"[", "3", "]"}], "]"}], "-", 
     RowBox[{"y", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"linedist", "[", "z_", "]"}], ":=", 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a20", "[", "z", "]"}], ".", 
          RowBox[{"a20", "[", "z", "]"}]}], ")"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a10", "[", "z", "]"}], ".", 
             RowBox[{"a20", "[", "z", "]"}]}], ")"}], "^", "2"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a10", "[", "z", "]"}], ".", 
           RowBox[{"a10", "[", "z", "]"}]}], ")"}]}]}], ")"}]}]}], ";"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Line", " ", "distance", " ", "2"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"v", "[", 
    RowBox[{"x1_", ",", "x2_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"x2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "-", 
      RowBox[{"x1", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"x1", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", 
      RowBox[{"x2", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", 
    RowBox[{"x0_", ",", "x1_"}], "]"}], ":=", 
   RowBox[{"x1", "-", "x0"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"linedist3", "[", 
    RowBox[{"x0_", ",", "x1_", ",", "x2_"}], "]"}], ":=", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"Normalize", "[", 
      RowBox[{"v", "[", 
       RowBox[{"x1", ",", "x2"}], "]"}], "]"}], ".", 
     RowBox[{"r", "[", 
      RowBox[{"x0", ",", "x1"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"linedist2", "[", "x_", "]"}], ":=", 
    RowBox[{"linedist3", "[", 
     RowBox[{
      RowBox[{"x", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"x", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"x", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "Curvature", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kappa", "[", "pts_", "]"}], ":=", 
   RowBox[{
    RowBox[{"linedist2", "[", "pts", "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a12", "[", "pts", "]"}], ".", 
        RowBox[{"a12", "[", "pts", "]"}]}], ")"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"dk", "[", 
     RowBox[{"pts_", ",", "t_", ",", "m_"}], "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"kappa", "[", 
       RowBox[{"bez", "[", 
        RowBox[{"pts", ",", 
         RowBox[{"t", "+", 
          RowBox[{"(", 
           RowBox[{"1", "/", "m"}], ")"}]}]}], "]"}], "]"}], "-", 
      RowBox[{"kappa", "[", 
       RowBox[{"bez", "[", 
        RowBox[{"pts", ",", "t"}], "]"}], "]"}]}], ")"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Calculate", " ", "cost"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xcost", "[", "pts_", "]"}], ":=", 
   RowBox[{"xcost", "[", 
    RowBox[{"pts", ",", "m"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xcost", "[", 
    RowBox[{"pts_", ",", "m_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{"dk", "[", 
        RowBox[{"pts", ",", 
         RowBox[{"i", "/", "m"}], ",", "m"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"cost", "[", "pts_", "]"}], ":=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a10", "[", "pts", "]"}], ".", 
         RowBox[{"a10", "[", "pts", "]"}]}], "\[Equal]", "0"}], "||", 
       RowBox[{
        RowBox[{
         RowBox[{"a12", "[", "pts", "]"}], ".", 
         RowBox[{"a12", "[", "pts", "]"}]}], "\[Equal]", "0"}]}], ",", "0", 
      ",", 
      RowBox[{"xcost", "[", "pts", "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Draw", " ", "graphic"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "pts_", "]"}], ":=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"BezierCurve", "[", "pts", "]"}], ",", "Green", ",", 
      RowBox[{"Line", "[", "pts", "]"}], ",", "Red", ",", 
      RowBox[{"Point", "[", "pts", "]"}], ",", "Black", ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"kappa", "[", 
         RowBox[{"bez", "[", 
          RowBox[{"pts", ",", "0.75"}], "]"}], "]"}], ",", 
        RowBox[{"pts", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"xcost", "[", "pts", "]"}], ",", 
        RowBox[{"pts", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gkappa", "[", 
     RowBox[{"points_", ",", "t_"}], "]"}], ":=", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"BezierCurve", "[", "points", "]"}], ",", "Green", ",", 
       RowBox[{"Line", "[", "points", "]"}], ",", "Red", ",", 
       RowBox[{"Point", "[", "points", "]"}], ",", "Blue", ",", 
       RowBox[{"BezierCurve", "[", 
        RowBox[{"bez", "[", 
         RowBox[{"points", ",", "t"}], "]"}], "]"}], ",", "Green", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"bez", "[", 
         RowBox[{"points", ",", "t"}], "]"}], "]"}], ",", "Blue", ",", 
       RowBox[{"Point", "[", 
        RowBox[{"bez", "[", 
         RowBox[{"points", ",", "t"}], "]"}], "]"}], ",", "Black", ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"kappa", "[", 
          RowBox[{"bez", "[", 
           RowBox[{"points", ",", "t"}], "]"}], "]"}], ",", 
         RowBox[{"pts", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"cost", "[", "points", "]"}], ",", 
         RowBox[{"pts", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "}"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Draw", " ", "table", " ", "of", " ", "graphics"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Grid", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"{", 
       RowBox[{"p0", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "y"}], "}"}], ",", "p2"}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "1", ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "0.5"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1.5"}], ",", "1.5", ",", "0.5"}], "}"}]}], "]"}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"gkappa", "[", 
      RowBox[{"pts", ",", "t"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0.001", ",", "0.999"}], "}"}]}], "]"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"dk", "[", 
      RowBox[{"pts", ",", "0.75", ",", "m"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "1", ",", "1000"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"DiscretePlot", "[", 
    RowBox[{
     RowBox[{"xcost", "[", 
      RowBox[{"pts", ",", "m"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "10", ",", "200"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.6004197663422966`*^9, 3.600419813199977*^9}, {
   3.600419882174922*^9, 3.600419983702729*^9}, {3.600420014464489*^9, 
   3.6004200469473467`*^9}, {3.600420078408146*^9, 3.6004200798162265`*^9}, {
   3.600420297853698*^9, 3.6004203971053743`*^9}, {3.6004245689129887`*^9, 
   3.6004246062261224`*^9}, {3.600424687029744*^9, 3.600424787222475*^9}, {
   3.6004248453648005`*^9, 3.6004248746384745`*^9}, {3.600424921114133*^9, 
   3.600424923695281*^9}, {3.600425018502703*^9, 3.6004250247790623`*^9}, 
   3.600425101504451*^9, {3.6004251457309804`*^9, 3.6004252376262364`*^9}, {
   3.6004252839118843`*^9, 3.6004255038644643`*^9}, {3.6004256126326857`*^9, 
   3.6004256163859005`*^9}, {3.6004256616394887`*^9, 
   3.6004256715830574`*^9}, {3.6004257157545843`*^9, 3.600425762850278*^9}, {
   3.6004260313586354`*^9, 3.6004260525138454`*^9}, {3.600426591277661*^9, 
   3.6004266451547422`*^9}, {3.6004282911898904`*^9, 3.600428291773924*^9}, {
   3.600428332479252*^9, 3.60042838471924*^9}, {3.6004284244365115`*^9, 
   3.6004284259866004`*^9}, {3.600428498838767*^9, 3.600428701613365*^9}, {
   3.600428739496532*^9, 3.6004287486130533`*^9}, {3.6004288701500053`*^9, 
   3.6004289244071083`*^9}, {3.6004289563359346`*^9, 3.600429076634815*^9}, {
   3.600429780805092*^9, 3.600429844368727*^9}, {3.6004299690848603`*^9, 
   3.6004300035848336`*^9}, {3.600430042942085*^9, 3.600430088962717*^9}, {
   3.600430209549614*^9, 3.6004303757901225`*^9}, {3.6004304324843655`*^9, 
   3.6004305310680037`*^9}, {3.6004305627508163`*^9, 3.600430866543192*^9}, {
   3.600430904461361*^9, 3.600431060608292*^9}, {3.600431111526204*^9, 
   3.600431152333538*^9}, {3.600431213658046*^9, 3.6004312794208074`*^9}, {
   3.600431330826748*^9, 3.600431336536074*^9}, {3.6004313933463235`*^9, 
   3.6004315267429533`*^9}, {3.60043165501329*^9, 3.600431661005633*^9}, {
   3.6004317004128866`*^9, 3.6004317550470114`*^9}, {3.6004317940872445`*^9, 
   3.6004320386472325`*^9}, {3.6004322342664213`*^9, 
   3.6004322347204475`*^9}, {3.6004324139446983`*^9, 
   3.6004324144567275`*^9}, {3.600432468987847*^9, 3.6004324974124727`*^9}, {
   3.600432658355678*^9, 3.600432690287504*^9}, {3.6004327296957583`*^9, 
   3.6004327891701603`*^9}, {3.60043286137729*^9, 3.6004329059538393`*^9}, {
   3.6004329482582593`*^9, 3.600432965775261*^9}, {3.600432995835981*^9, 
   3.6004331012290087`*^9}, {3.60043318517381*^9, 3.600433274003891*^9}, 
   3.6004333226556735`*^9, {3.6004483946037397`*^9, 3.600448402040165*^9}, {
   3.6004487058035393`*^9, 3.60044871367899*^9}, {3.6004929501561747`*^9, 
   3.60049299396168*^9}, {3.600493053176067*^9, 3.600493170253763*^9}, {
   3.600493242102873*^9, 3.6004932548126*^9}, {3.600493287929494*^9, 
   3.600493348506959*^9}, 3.60049358717661*^9, {3.600493655048492*^9, 
   3.6004936743905983`*^9}, {3.6004942426921034`*^9, 3.600494473628312*^9}, {
   3.60049450680821*^9, 3.6004945163807573`*^9}, {3.6004949781931715`*^9, 
   3.600495014830267*^9}, {3.6004951089466505`*^9, 3.600495151970111*^9}, {
   3.60049519951383*^9, 3.6004952686577854`*^9}, {3.6004953175285807`*^9, 
   3.600495349561413*^9}, 3.6004954021134186`*^9, {3.6004954655010443`*^9, 
   3.6004954868602657`*^9}, {3.6004955401103115`*^9, 
   3.6004955582533493`*^9}, {3.600495628689378*^9, 3.6004956480744867`*^9}, {
   3.600495709008972*^9, 3.600495753994545*^9}, {3.600495818756249*^9, 
   3.6004959905740767`*^9}, {3.6004960245840216`*^9, 3.600496036953729*^9}, {
   3.60049610025735*^9, 3.6004961019644475`*^9}, {3.6004961817280097`*^9, 
   3.6004961846531773`*^9}, 3.600496253643123*^9, {3.600496298379682*^9, 
   3.6004963009488287`*^9}, {3.6004963644414606`*^9, 
   3.6004963711358433`*^9}, {3.600496814132181*^9, 3.6004968606478415`*^9}, {
   3.600496956273311*^9, 3.600496968537013*^9}, {3.600497010084389*^9, 
   3.600497101417613*^9}, {3.600497233751182*^9, 3.600497268593175*^9}, {
   3.600497333847907*^9, 3.600497352755989*^9}, {3.600497397569552*^9, 
   3.6004974149765477`*^9}, {3.6004990883352585`*^9, 3.600499238781863*^9}, {
   3.600499425109521*^9, 3.600499466991916*^9}, {3.6004994994757743`*^9, 
   3.6004995497126474`*^9}, {3.600499664392207*^9, 3.600499673121706*^9}, {
   3.600499820036109*^9, 3.600499822477249*^9}, {3.600500175173422*^9, 
   3.60050022689338*^9}, {3.600500269319807*^9, 3.600500271864952*^9}, {
   3.6005003104191575`*^9, 3.6005003132863216`*^9}, {3.6005004181463194`*^9, 
   3.600500426689808*^9}, {3.600502456651915*^9, 3.600502562322959*^9}, {
   3.6005026094156523`*^9, 3.6005026307978754`*^9}, {3.600502692350396*^9, 
   3.6005027114494886`*^9}, {3.600502757371115*^9, 3.600502869364521*^9}, {
   3.6005029587226315`*^9, 3.6005029798868427`*^9}, {3.600503019339099*^9, 
   3.6005030415703707`*^9}, {3.600517114115274*^9, 3.6005172304619284`*^9}, {
   3.6005200761453543`*^9, 3.60052008358578*^9}, 3.6005817674601507`*^9, {
   3.600593601454722*^9, 3.6005936015718*^9}, {3.6005936498406425`*^9, 
   3.6005937455374393`*^9}, {3.6005938314332247`*^9, 
   3.6005939282797885`*^9}, {3.6005939602481008`*^9, 
   3.6005939905744953`*^9}, {3.600594030743274*^9, 3.60059421434181*^9}, {
   3.600594252652351*^9, 3.6005943944044657`*^9}, 3.6005944378454275`*^9, {
   3.6005950669364405`*^9, 3.6005950903882074`*^9}, {3.600595122216426*^9, 
   3.600595129369195*^9}, {3.6006006100313826`*^9, 3.6006006276421237`*^9}, {
   3.6006010256139936`*^9, 3.600601049241746*^9}, {3.6006010905883102`*^9, 
   3.600601138884509*^9}, {3.600757066836005*^9, 3.600757192580942*^9}, {
   3.6007572519150076`*^9, 3.600757376216875*^9}, {3.600757452953226*^9, 
   3.600757453433546*^9}, {3.600764311194776*^9, 3.600764324943942*^9}, {
   3.60076515833958*^9, 3.6007651622671986`*^9}, {3.600765384015977*^9, 
   3.6007653848565392`*^9}, 3.6007660128740873`*^9, 3.6007660865515795`*^9, {
   3.600766192848446*^9, 3.6007662030242295`*^9}, {3.600766448441518*^9, 
   3.6007664944521904`*^9}, {3.6007669446312847`*^9, 
   3.6007669837583694`*^9}, {3.600767167308687*^9, 3.6007671828920746`*^9}, {
   3.6007672174801335`*^9, 3.6007673052690077`*^9}, 3.6007673924461255`*^9, {
   3.60076765302542*^9, 3.600767671112565*^9}, {3.6007684000899954`*^9, 
   3.6007684635012703`*^9}, {3.600770151214686*^9, 3.600770323187398*^9}, 
   3.6007710589003997`*^9, 3.60077117490129*^9, {3.6007717029604473`*^9, 
   3.6007718123794017`*^9}, 3.6007731924870405`*^9, {3.600773994062113*^9, 
   3.6007740120691185`*^9}, {3.600775222187402*^9, 3.6007752492784615`*^9}, {
   3.6007753127307644`*^9, 3.600775316506281*^9}, {3.600775621801574*^9, 
   3.60077562192966*^9}, 3.600776291837427*^9, {3.600777172213892*^9, 
   3.600777174401504*^9}, {3.6007772067321997`*^9, 3.6007772343273773`*^9}, {
   3.600777427466772*^9, 3.600777428929747*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6007752276530447`*^9, 3.6007752504822655`*^9}, 
   3.6007753190870028`*^9, 3.6007756234256563`*^9, 3.6007763048454547`*^9, 
   3.60077722682697*^9, 3.6007774306088676`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0.`\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6007752276530447`*^9, 3.6007752504822655`*^9}, 
   3.6007753190870028`*^9, 3.6007756234256563`*^9, 3.6007763048454547`*^9, 
   3.60077722682697*^9, 3.6007774306528964`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6007752276530447`*^9, 3.6007752504822655`*^9}, 
   3.6007753190870028`*^9, 3.6007756234256563`*^9, 3.6007763048454547`*^9, 
   3.60077722682697*^9, 3.6007774307009287`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0.`\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6007752276530447`*^9, 3.6007752504822655`*^9}, 
   3.6007753190870028`*^9, 3.6007756234256563`*^9, 3.6007763048454547`*^9, 
   3.60077722682697*^9, 3.600777430744958*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(1\\/0.`\\)\[NoBreak] \
encountered. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6007752276530447`*^9, 3.6007752504822655`*^9}, 
   3.6007753190870028`*^9, 3.6007756234256563`*^9, 3.6007763048454547`*^9, 
   3.60077722682697*^9, 3.600777431069174*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Power :: \
infy\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6007752276530447`*^9, 3.6007752504822655`*^9}, 
   3.6007753190870028`*^9, 3.6007756234256563`*^9, 3.6007763048454547`*^9, 
   3.60077722682697*^9, 3.6007774310921926`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \[NoBreak]\\!\\(0.`\\\\ \
ComplexInfinity\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6007752276530447`*^9, 3.6007752504822655`*^9}, 
   3.6007753190870028`*^9, 3.6007756234256563`*^9, 3.6007763048454547`*^9, 
   3.60077722682697*^9, 3.600777431136219*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Infinity \
:: indet\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6007752276530447`*^9, 3.6007752504822655`*^9}, 
   3.6007753190870028`*^9, 3.6007756234256563`*^9, 3.6007763048454547`*^9, 
   3.60077722682697*^9, 3.600777431158233*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1.5, 1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1.5, 1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1.5, 1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.20490520074709168`", {-0.5, 0}], 
        InsetBox["46.64211426692776`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1., 1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1., 1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1., 1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.3577708763999664`", {-0.5, 0}], 
        InsetBox["22.17112158937646`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-0.5, 1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-0.5, 1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-0.5, 1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.6827079338156666`", {-0.5, 0}], 
        InsetBox["10.488277831804176`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0., 1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0., 1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0., 1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["1.414213562373095`", {-0.5, 0}], 
        InsetBox["7.275741446311578`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0.5, 1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0.5, 1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0.5, 1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["2.862167011199731`", {-0.5, 0}], 
        InsetBox["10.499527021006912`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1., 1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1., 1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1., 1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["4.`", {-0.5, 0}], 
        InsetBox["22.182307904284436`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1.5, 1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1.5, 1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1.5, 1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["2.862167011199731`", {-0.5, 0}], 
        InsetBox["46.6478202273126`", {0.5, 0}]}}]},
    {
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1.5, 0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1.5, 0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1.5, 0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.12068685239272865`", {-0.5, 0}], 
        InsetBox["126.27595994585351`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1., 0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1., 0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1., 0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.22826882356360753`", {-0.5, 0}], 
        InsetBox["43.91823700002186`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-0.5, 0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-0.5, 0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-0.5, 0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.5059644256269407`", {-0.5, 0}], 
        InsetBox["9.073918177013681`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0., 0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0., 0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0., 0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["1.4310835055998656`", {-0.5, 0}], 
        InsetBox["2.575100067952169`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0.5, 0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0.5, 0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0.5, 0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["5.656854249492379`", {-0.5, 0}], 
        InsetBox["9.131565199837194`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1., 0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1., 0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1., 0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["16.`", {-0.5, 0}], 
        InsetBox["43.94966034382305`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1.5, 0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1.5, 0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1.5, 0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["5.65685424949238`", {-0.5, 0}], 
        InsetBox["126.28302264603828`", {0.5, 0}]}}]},
    {
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1.5, 0.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1.5, 0.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1.5, 0.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.`", {-0.5, 0}], 
        InsetBox["0.`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1., 0.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1., 0.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1., 0.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.`", {-0.5, 0}], 
        InsetBox["Indeterminate", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-0.5, 0.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-0.5, 0.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-0.5, 0.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.`", {-0.5, 0}], 
        InsetBox["0.`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0., 0.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0., 0.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0., 0.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.`", {-0.5, 0}], 
        InsetBox["0.`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0.5, 0.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0.5, 0.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0.5, 0.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.`", {-0.5, 0}], 
        InsetBox["Indeterminate", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1., 0.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1., 0.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1., 0.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["Indeterminate", {-0.5, 0}], 
        InsetBox["Indeterminate", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1.5, 0.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1.5, 0.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1.5, 0.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.`", {-0.5, 0}], 
        InsetBox["0.`", {0.5, 0}]}}]},
    {
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1.5, -0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1.5, -0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1.5, -0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.12068685239272865`", {-0.5, 0}], 
        InsetBox["126.27595994585351`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1., -0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1., -0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1., -0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.22826882356360753`", {-0.5, 0}], 
        InsetBox["43.91823700002186`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-0.5, -0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-0.5, -0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-0.5, -0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.5059644256269407`", {-0.5, 0}], 
        InsetBox["9.073918177013681`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0., -0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0., -0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0., -0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["1.4310835055998656`", {-0.5, 0}], 
        InsetBox["2.575100067952169`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0.5, -0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0.5, -0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0.5, -0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["5.656854249492379`", {-0.5, 0}], 
        InsetBox["9.131565199837194`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1., -0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1., -0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1., -0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["16.`", {-0.5, 0}], 
        InsetBox["43.94966034382305`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1.5, -0.5}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1.5, -0.5}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1.5, -0.5}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["5.65685424949238`", {-0.5, 0}], 
        InsetBox["126.28302264603828`", {0.5, 0}]}}]},
    {
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1.5, -1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1.5, -1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1.5, -1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.20490520074709168`", {-0.5, 0}], 
        InsetBox["46.64211426692776`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-1., -1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-1., -1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-1., -1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.3577708763999664`", {-0.5, 0}], 
        InsetBox["22.17112158937646`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {-0.5, -1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {-0.5, -1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {-0.5, -1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["0.6827079338156666`", {-0.5, 0}], 
        InsetBox["10.488277831804176`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0., -1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0., -1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0., -1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["1.414213562373095`", {-0.5, 0}], 
        InsetBox["7.275741446311578`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {0.5, -1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {0.5, -1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {0.5, -1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["2.862167011199731`", {-0.5, 0}], 
        InsetBox["10.499527021006912`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1., -1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1., -1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1., -1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["4.`", {-0.5, 0}], 
        InsetBox["22.182307904284436`", {0.5, 0}]}}], 
     GraphicsBox[{BezierCurveBox[{{-0.5, 0}, {1.5, -1.}, {0.5, 0}}], 
       {RGBColor[0, 1, 0], LineBox[{{-0.5, 0}, {1.5, -1.}, {0.5, 0}}]}, 
       {RGBColor[1, 0, 0], PointBox[{{-0.5, 0}, {1.5, -1.}, {0.5, 0}}]}, 
       {GrayLevel[0], InsetBox["2.862167011199731`", {-0.5, 0}], 
        InsetBox["46.6478202273126`", {0.5, 0}]}}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.600768418761444*^9, 3.6007684243501697`*^9}, 
   3.6007684654835896`*^9, {3.6007701559658527`*^9, 3.6007701875909357`*^9}, {
   3.6007702253261566`*^9, 3.600770280854175*^9}, {3.600770317157377*^9, 
   3.600770324792467*^9}, 3.6007711767245045`*^9, {3.6007717779204206`*^9, 
   3.600771813035845*^9}, 3.6007731954430127`*^9, 3.6007740145127473`*^9, {
   3.6007752276930723`*^9, 3.6007752505343*^9}, 3.600775320419889*^9, 
   3.600775624730526*^9, 3.600776306242388*^9, 3.6007772281864123`*^9, 
   3.600777432411069*^9}]
}, Open  ]]
},
WindowSize->{910, 945},
WindowMargins->{{Automatic, 0}, {0, Automatic}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 19824, 493, 892, "Input"],
Cell[20406, 517, 600, 12, 40, "Message"],
Cell[21009, 531, 630, 12, 21, "Message"],
Cell[21642, 545, 600, 12, 40, "Message"],
Cell[22245, 559, 628, 12, 21, "Message"],
Cell[22876, 573, 598, 12, 40, "Message"],
Cell[23477, 587, 681, 13, 21, "Message"],
Cell[24161, 602, 628, 12, 21, "Message"],
Cell[24792, 616, 683, 13, 21, "Message"],
Cell[25478, 631, 12300, 193, 765, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
